home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / filutil / pa_st270.zip / EXAMPLE7.POM < prev    next >
Text File  |  1995-02-01  |  476b  |  23 lines
  1. ;
  2. ; NOTE:  A quick-reference summary of POM commands appears in EXAMPLE4.POM
  3. ;
  4. ;-----------------------------------------------------------------------------
  5. ;
  6. ; Replace the tab characters with spaces
  7. ;
  8. CHANGE $FLINE $TAB "  "
  9. ;
  10. ; Extract the columns
  11. ;
  12. SET    PROGNAME = $FLINE[ 1 20]
  13. SET    DESCRIP  = $FLINE[22 99]
  14. ;
  15. ; Trim the spaces
  16. ;
  17. TRIM   PROGNAME "B" " "
  18. TRIM   DESCRIP  "B" " "
  19. ;
  20. ; Output the result
  21. ;
  22. OUTEND "X" = "X" |"{PROGNAME}","{DESCRIP}"
  23.